home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Garbo
/
Garbo.cdr
/
mac
/
hypercrd
/
hc1_2_x
/
smrtslds.sit
/
SmartSlides 1.1 Demo
/
card_4891.txt
< prev
next >
Wrap
Text File
|
1990-06-12
|
7KB
|
370 lines
-- card: 4891 from stack: in.1 Demo
-- bmap block id: 5178
-- flags: 0000
-- background id: 2635
-- name:
-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=19 right=50 bottom=12
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delay
----- HyperTalk script -----
on mouseUp
if the optionKey is down then GiveHelp "Delay "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=55 right=86 bottom=12
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Beep
----- HyperTalk script -----
on mouseUp
if the optionKey is down then GiveHelp "Beep "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=89 right=120 bottom=12
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LockScreen
----- HyperTalk script -----
on mouseUp
if the optionKey is down then GiveHelp "LockScreen "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=123 right=154 bottom=12
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Opener
----- HyperTalk script -----
on mouseUp
if the optionKey is down then GiveHelp "On OpenCard "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=16 top=12 right=45 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 91
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Title
-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=102 top=48 right=305 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 91
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: body
-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=102 top=82 right=114 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hiliter
-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=102 top=146 right=178 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hiliter
-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=102 top=210 right=242 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hiliter
-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=63 top=82 right=114 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 10454 / 10454
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CheckBox Dingbat
-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=63 top=146 right=178 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 2415 / 2415
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Arrow Dingbat
-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=63 top=210 right=242 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 32381 / 32381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hand
-- part 16 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=340 top=279 right=302 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rectangle
-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=340 top=279 right=302 bottom=481
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PopItUp
----- HyperTalk script -----
on mouseUp
if the optionKey is down then
GiveHelp "PopUp "
else pass mouseUp
end mouseUp
on mousedown
if the optionKey is up then pass mouseDown
end mouseDown
-- part 17 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=247 top=21 right=304 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PopUp 18
-- part contents for background part 283
----- text -----
5
-- part contents for background part 33
----- text -----
scroll left slowly to card
scroll right slowly to card
-- part contents for card part 5
----- text -----
DingBat Buttons & Tiling
-- part contents for card part 6
----- text -----
CheckBox DingBat Buttons
Arrow DingBat Buttons
Hand DingBat Buttons
(click on each)
-- part contents for background part 142
----- text -----
Opener
body
Hiliter
Hiliter
Hiliter
CheckBox Dingbat
Arrow Dingbat
Hand
Rectangle
PopUp 18
PopItUp
-- part contents for background part 100
----- text -----
1,10 13
1,11 14
1,12 15
1,13 10
1,14 11
1,15 12
-- part contents for card part 16
----- text -----
About This Slide…
-- part contents for background part 125
----- text -----
17
-- part contents for card part 17
----- text -----
ΓÇó Create Title field; enter title
ΓÇó Create Body field; enter list
ΓÇó Resize (narrow) Body field
ΓÇó Use TILE HILITERS on Body
ΓÇó Unlock all fields
ΓÇó Add "(Click on each)" to Body
ΓÇó Create & position CheckBox
ΓÇó Create & position Arrow
ΓÇó Create & position Hand
ΓÇó Chain each DingBat to the
Hiliter on the same line
ΓÇó And vice versa (6 chains in all)
ΓÇó Create Rectangle & enter text
ΓÇó Create & resize PopUp
ΓÇó Change font & enter PopUp text
ΓÇó Resize button over Rectangle
ΓÇó Reset slide & make next slide